home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ian & Stuart's Australian Mac: Not for Sale
/
Another.not.for.sale (Australia).iso
/
fade into you
/
getting there
/
WWW
/
MacHTTP Extras
/
Script Tools
/
Examples
/
Move File
< prev
next >
Wrap
Text File
|
1993-09-10
|
434b
|
11 lines
--
-- Find out if the user wants to move a file or a folder
--
if button returned of (display dialog "Move a file or a folder?" buttons {"File", "Folder"}) = "File" then
move file (choose file with prompt "Pick a file to move:") to (¬
choose folder with prompt "Pick a destination folder:")
else
move file (choose folder with prompt "Pick a folder to move:") to (¬
choose folder with prompt "Pick a destination folder:")
end if